home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS228.dsk / KER384.INSTALL.txt < prev    next >
Text File  |  2012-02-16  |  2KB  |  56 lines
  1. REM1ST LINE OF KER384.INSTALL--DO NOT REMOVE THESE REM STATEMENTS
  2. CLOSE
  3. IF PEEK(-8192)=32 THEN PRINT "STOPPING"
  4. IF PEEK(-8192)=32 THEN PRINT "APPLESOFT BASIC REQUIRED"
  5. IF PEEK(-8192)=32 THEN POKE-21837,0
  6. IF PEEK(-8192)=32 THEN CALL-23830
  7. IF PEEK(-8192)=32 THEN END
  8. POKE814,0:IFPEEK(4096)=76ANDPEEK(4160)=76THENPOKE814,234
  9. IFPEEK(814)=0THEN?CHR$(7);"STOPPING":?
  10. IFPEEK(814)=0THEN?"BLOAD KERMIT384'"
  11. IFPEEK(814)=0THEN?"BEFORE EXEC'ING PROGRAM":POKE-21837,0:END
  12. POKE814,0:IFPEEK(2053)=164ANDPEEK(2054)=51THENPOKE814,234:RUN
  13. CALL-151
  14. 0300:48 98 48 8A 48 20 F7 AF A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E
  15. 0316:0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 68 AA 68 A8 68
  16. 032C:60 00 00 00 68 A8 68 A6 DF 9A 48 98 48 60 00
  17. 3D0G:REMONERR FIX
  18. CALL768:SC=PEEK(64)+PEEK(65)*256
  19. FP
  20. 150LOMEM:33000
  21. 160D$=CHR$(4):G$=CHR$(7):IFPEEK(48896)><76ANDPEEK(978)=157GOTO200
  22. 170?D$;"OPEN T":?D$;"WRITE T"
  23. 180?"END":?D$;"CLOSE":?G$;"GET DOS3.3":?
  24. 190?D$;"EXEC T":END
  25. 200POKE216,0:POKE-21837,0:?D$;"CLOSE"
  26. 210IFPEEK(814)=234THENPOKE814,0:GOTO570
  27. 220?G$
  28. 235?"1 SUPER SERIAL OR //C SERIAL PORT"
  29. 240?"2 MICROTEK SV-622"
  30. 250?"3 MICROMODEM II"
  31. 251?"4 APPLE"
  32. 252?"5 CCS 7710"
  33. 253?"6 GS SERIAL PORT"
  34. 254?"7 CPS"
  35. 255?"[UNSURE, TRY 1]"
  36. 260S$="SS":GOSUB690:IFS=2THENS$="SV"
  37. 270IFS=3THENS$="MM"
  38. 273IFS=4THENS$="AC"
  39. 276IFS=5THENS$="CC"
  40. 277IFS=6THENS$="GS"
  41. 278IFS=7THENS$="CP"
  42. 280XS$="KER384."+S$
  43. 290ONERRGOTO310
  44. 300?D$;"VERIFY";XS$:GOTO330
  45. 310CALL816:?G$:?"INSERT DISK WITH ";XS$;"
  46. 320INPUT"PRESS RETURN";I$:RESUME
  47. 330POKE216,0:?D$;"EXEC";XS$:END
  48. 570ONERRGOTO590
  49. 573?D$;"DELETEKER384.2"
  50. 580?D$;"BSAVEKERMIT384,A$1000,L$6E00":GOTO710
  51. 590CALL816:?G$:INPUT"DISK FULL--FIX, PRESS RETURN";I$:RESUME
  52. 690?:INPUT"WHICH ? (1,2,3 ... )";S:IFS<1ORS>10GOTO690
  53. 700RETURN
  54. 710?D$;"EXECKER384.INIT"
  55. RUN
  56.